home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / daten / adm / termintool / entpacken next >
Text File  |  1996-08-07  |  4KB  |  110 lines
  1. /* $VER: Install V 2.2 (25.3.96) © Bernd Stange */
  2.  
  3. /*************************************************************************/
  4. Ver = 'Install V 2.2 (25.3.96) © Bernd Stange'
  5.  
  6.  
  7. IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
  8.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  9.       EXIT 10
  10. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  11.    IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  12.       EXIT 10
  13.    NL   = "0a"x
  14. Titel   = Ver
  15. ADDRESS COMMAND 'assign in: "" '
  16.  
  17. IF ~EXISTS('WBStartup/ADMGebStart') THEN DO
  18.    ADDRESS COMMAND "/c/lhx -qm x TerminTool.lha"
  19.    ADDRESS COMMAND "/c/drawicon ADM_Erinnern.guide"
  20.    ADDRESS COMMAND "/c/drawicon Prefs"
  21.    ADDRESS COMMAND "/c/drawicon WBStartup"
  22.    ADDRESS COMMAND "/c/drawicon c"
  23.    ADDRESS COMMAND "/c/drawicon ADM"
  24. END
  25.  
  26. CALL Anleitung
  27. CALL Pfad1
  28. CALL Pfad2
  29. CALL Pfad3
  30. CALL InstallFrage
  31. CALL Kopier
  32.  
  33.  
  34. OK = rtezrequest('Installation fertig: Einstellungen bearbeiten ?', "Ja|Nein",ver)
  35. IF ok = 1 THEN ADDRESS COMMAND 'execute in:prefs/ADMscPrefs >NIL:'
  36. EXIT
  37. /***********************************************************************/
  38.  
  39. Anleitung:
  40. Info = rtezrequest('Installations-Verlauf:'|| NL ||,
  41.                     'Zuerst werden folgende Pfade ermittelt.'|| NL ||,
  42.                     'Verzeichnis für ADMGebStart.    (Default: Sys:WBStartup)'|| NL ||,
  43.                     'Verzeichnis für ADMscPrefs u. Termine.    (Default: Sys:Prefs)'|| NL ||,
  44.                     'Verzeichnis für ADMGebList.adm    (Bitte ADM/ARexx wählen)'|| NL ||,
  45.                     'Liegt AskReq in c:? Falls nicht, so wird es dorthin kopiert.'|| NL ||,
  46.                     'Check aller Pfade und das Kopieren der Scripts beginnt.'|| NL ||,
  47.                     'Ein Abbruch ist jederzeit möglich!.'|| NL ||,
  48.                     '       ', "Weiter|Abbruch",ver)
  49. IF Info = '0' THEN EXIT
  50. RETURN
  51.  
  52.  
  53.  
  54. Pfad1:
  55. PfadADMGebStart    = rtfilerequest("sys:wbstartup","","Verzeichnis für ADMGebStart auswählen !","OK, auswählen!",'rtfi_flags = freqf_nofiles')
  56. IF PfadADMGebStart = "" THEN EXIT
  57. RETURN
  58. Pfad2:
  59. PfadADMscPrefs     = rtfilerequest("sys:prefs","","Zielverzeichnis für ADMscPrefs u. Termine!","OK, auswählen!",'rtfi_flags = freqf_nofiles')
  60. IF PfadADMscPrefs  = "" THEN EXIT
  61. RETURN
  62. Pfad3:
  63. PfadADMGebList     = rtfilerequest("Bitte ADM/ARexx wählen","","ADMGebList.adm gehört in ADM/ARexx !","OK, auswählen!",'rtfi_flags = freqf_nofiles')
  64. IF PfadADMscPrefs  = "" THEN EXIT
  65. RETURN
  66.  
  67. INSTALLFrage:
  68. ok = rtezrequest('Installiere alle ADMScripts und Zusatzprogramme !'|| NL ||,
  69.                  'Bereits installierte Versionen werden Ü B E R S C H R I E B E N !' || NL ||,
  70.                  'Gewählte Pfade:' || NL ||,
  71.                  '[1]...kopiere ADMGebStart nach' PfadADMGebStart || NL ||,
  72.                  '[2]...kopiere ADMscPrefs u.Termine nach' PfadADMscPrefs || NL ||,
  73.                  '[3]...kopiere ADMGebList.adm nach' PfadADMGebList,'Installiere|[1]|[2]|[3]|Abbruch',ver)
  74. IF OK = '0' THEN EXIT
  75. IF OK = '2' THEN DO
  76. CALL Pfad1
  77. CALL INSTALLFrage
  78. END
  79. IF OK = '3' THEN DO
  80. CALL Pfad2
  81. CALL INSTALLFrage
  82. END
  83. IF OK = '4' THEN DO
  84. CALL Pfad3
  85. CALL INSTALLFrage
  86. END
  87. RETURN
  88.  
  89.  
  90. Ask:
  91. IF ~EXISTS('c:Askreq') THEN DO
  92. OK = rtezrequest('Soll ich Askreq ins c: kopieren ?', "Ja|Nein",ver)
  93. IF ok = 1 THEN DO
  94. ADDRESS COMMAND
  95. 'copy in:c/#? c:'
  96. END
  97. END
  98. RETURN
  99.  
  100. Kopier:
  101. ADDRESS COMMAND
  102. 'copy in:wbstartup/#? ' '"' || PfadADMGebStart || '"'
  103. 'copy in:prefs/ADMscPrefs#?'  '"' || PfadADMscPrefs || '"'
  104. 'copy in:prefs/Termine#?'  '"' || PfadADMscPrefs || '"'
  105. 'copy in:ADM/ADMGebList.adm#?'  '"' || PfadADMGebList || '"'
  106. SAY "Fertig...   have fun !"
  107. RETURN
  108.  
  109.  
  110.